home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / LkRORnd / bench.e next >
Encoding:
Text File  |  1998-12-22  |  453 b   |  37 lines
  1. class BENCH
  2.  
  3. creation make
  4.    
  5. feature
  6.    
  7.    array_int: ARRAY[INTEGER];
  8.  
  9.  
  10.  
  11.    make is
  12.       local 
  13.      random: STD_RAND;
  14.      size: INTEGER;
  15.      i: INTEGER;
  16.       do
  17.      !!random.with_seed(74363);
  18.      from
  19.         i := 150;
  20.      until
  21.         i = 0
  22.      loop
  23.         from
  24.            size := 0
  25.         until
  26.            size = 5000
  27.         loop
  28.            !!array_int.make(0,random.last_integer(5000));
  29.            random.next;
  30.            size := size + 1
  31.         end
  32.         i := i - 1
  33.      end
  34.       end
  35.  
  36. end
  37.